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Steven B. Lionel, 18-Jan-79: Version 1 
MODIFIED BY: 


0 1 -TITLE MTH HSHINT = FLOATING TRUNCATION 00¢ 
0 ¢ -IDENT /1-005/ 3; File: MTHHINT.MAR EDIT: JAW1005 00¢ 
4; 76C 
0 0 5 SRR AE AAA EAREERAE EERE ont 
000 § 3 * 8( 
000 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B © 00C 
900 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
0008 m i* ALL RIGHTS RESERVED. « ae 
; ® 
0000 11 :* THIS SOFTWARE IS FURNI SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 00¢ 
9000 13 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 254 
000 15. ;* INCLUSION OF THE ABOVE pido NOTICE. THIS Sof TWARE OR ANY OTHER * 00¢ 
0000 14 ;* COPIES THEREOF oer NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 18 3* TRANSFERRED. * 
7* th 
0000 18 ;* phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
0000 19 3* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 , :* CORPORATION. * 
3 ® 
0000 § 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 4 ;* * 
0000 25 ;* * 
464 $8 FRR A REAR AEA EAE AAA RAE AERA AEA RAE EEE AERA REAR REE Ee 
0000 28 ; 
itd 9; FACILITY: MATH LIBRARY 
0000 0 ;+ 
0000 iF ABSTRACT: 
0000 ¢ 3 This module contains routine MTHSHINT: 
0000 ; Return truncated H floating argument. 
0000 4; 
0000 5 3 
0000 36 3-- 
0000 73 
0000 8 ; VERSION: 1 
0000 9; 
0000 40 ; HISTORY: 
464 41 ; 
4 4g 3 AUTHOR: 
000 43 ; 
8 44; 
45; 
00 46 ; 
8 00 47; 
00 48 ; 
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Detailed Current Edit History 6-SEP-1984 11: 


MTHRTL.SRCJMTHHINT MAR; 1 
-SBTTL HISTORY 3; Detailed Current Edit History 


Edit History for Version 1 of MTHS$HINT 


- ) - Or ioinet SBL 18-Jan-79 
¢ - a JSB “ongt yto"i JBS 16-AUG-1979 
or ge ot en to _R8 to reflect code to disable IV. 


Changed seer} Mg fe routine to RSB. 11-FEB-81 
Mask all bits except IV when restoring PSW. JAW 14-Jul-1981 
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MTHSHINT - FLOAT ins TRUNCATION ya 1: AX/VMS Macro V04-00 
1-005 DECLARATIONS 6-SEP =198¢ oi 38: 88 EMTHRTL. SRC IMTHHINT MAR: 1 
3 3 »SBTTL DECLARATIONS 
65 ; 
98 3; INCLUDE FILES: 
0 67 ; NONE 
4 68 ; 
0 $? 
000 0; 
900 71 ; EXTERNAL SYMBOLS: 
44 ue 3 NONE 
00 f9 3 
B88 74 
00 75 3 
000 £6 3; MACROS: 
itd Ae ; SPSLDEF PSL 
: macros 
44 79 ; 
000 80 
0000 5) ; 
0000 ¢ 3; PSECT DECLARATIONS: 
— o -PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 
itd 85 ; 
0000 86 ; EQUATED SYMBOLS: 
0000 87 ; NONE 
0000 88 ; 
0000 89 
0000 90 ; 
0000 91 ; OWN STORAGE: 
0000 3 : NONE 
0000 93 ; 


MTHSHINT of N 
1-005 


MTH 


xo 
—> 
2-4 
tie 
zo 


to H truncation MTHRTL.SRCJMTHHINT MAR; 1 


TRUNCATION 16-SEP-1984 01:36: AX/VMS Macro V04-00 
greeks 91:38:60 f MTHHI 
-SBTTL MTHSHINT H to H truncation 


p++ 
; FUNCTIONAL DESCRIPTION: 


et >a the argument with all zeroes to the right of the decimal 
point. 


Because the result can not be expressed in 64 bits, it is 
returned as the first argument with the input parameter 
displaced to the second argument, in accordance with 
the system standard. 

CALLING SEQUENCE: 
CALL MTHSHINT (truncation.wh.r, arg.rh.r) 

INPUT PARAMETERS: 


The input argument is a H floating-point value 
and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 


SOOoOoooooooQoooooooooooooooo 
SoOoOOCCOCOCOCOOoOOOOOOSOOOOOOSoOSoOO 


HOO SVOOCOCOCOCOCOCOSOOCOOSCSSCOSSOSSCSOOOOCOOOSOOOOOOOOOOOOOOCOOCOO 


The output argument is an H floating-point value 
and is returned by reference. 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
Reserved Operand exception can occur. 


sENTRY MTHSHINT, “M<> 
EMODH a@8(AP), #0, #1, @4(AP), @4(AP) 


; first arg gets fraction 
sens @4(AP), @8(AP), @4(AP) ; @4(AP) = integer_part (arg) 


0000 
048C 08 00 08 BC 74FD 
04 BC 
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MTHSHINT = FLOATING TRUNCATION 16-SEP-1984 01:36: AX/VMS Macro V04-00 P 
1-005 MTHSHINT_RB JSB entry point o7$Ep= 1986 11:28:08 EMTMRTE.SAEIMTHINING MAR:? P29 (8), 
} 1? ~SBTTL MTHSHINT_R8S JSB entry point 
18 449 3 ++ | 
O15 148 | FUNCTIONAL DESCRIPTION: | 
4 13} ; ane = the argument with all zeroes to the right of the decimal 
01 152 : ; 
4 138 ; CALLING SEQUENCE: 
Ba 132 ; truncation.wh.v = JSB MTHSHINT_R8 (arg.rh.v) 
31 i : INPUT PARAMETERS: 
001 15 : The input argument is aH floating-point L 
bore 199 ; and is catl-sy-value. nbn Agric hte 
0015 162 : IMPLICIT INPUTS: 
0015 188 3 
Oo1s 88 —_ | 
0019 166 : OUTPUT PARAMETERS: | 
0015 168 : The output argument is an H floating-point val 
oaie $3 ; and is Seturase by value in registers RO-R3. ri 
0015 171 : IMPLICIT OUTPUTS: | 
0015 \7e ; 
$b18 1b : seats 
0015 175 : COMPLETION CODES: 
0015 178 3 
Bate re : NONE 
0013 179 > SIDE EFFECTS: 
31 ik ; Reserved Operand exception can occur. 
015 184 MTHSHINT_RB:: ZA t in RO-R3 
58 pC 0015 «185 MOVPSL RB ; cove Pa | 
$3 B9 Botg 186 BICPSW #PSLSM_IV ; Clear IV | 
08 00 0 74FD 0019 187 EMODH RO, #0, #1, R4, R4 ; R4-R7 gets fraction 
50 50 54 63FD $30 1 8 SUBH3 R4, RO, R ; RO-R3 = integer part (arg) 
58 FFDF 8F AA 1 BICW #°C<PSCSM_IV>, R8 ; Clear all but 1V 
58 4 3 A 190 BISPSW R8 3; Restore IV to previous state 
0 c 191 $B 
02D 135 
002D 19 . END 
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MTHSHINT 0000000 RG og 
MTHSHINT_RB 00 B53 RG 
PSLSM_IV 5 02 
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Fer e ewe a wena es oo ¢ 


! Psect synopsis ! 


Gewese eoer ew se cnm ase + 


PSECT name Allocation PSECT No. Attributes 


. . 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 < 9-3 1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
-MTHSCODE 00000020 ¢ 45.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


$e eres SPOT BE DeBEenwone awe 


+ 
Performance indicators ! 


: 
Feeoeoeoeeeoeeoeeeeeoceceececeosa + 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 88:00: 00.18 00:00:00.2? 
Command processing 118 00:00:00.5 00:00:02.74 
Pass 119 00:00:00.97 00:00:04 .67 
Symbol table sort 0 00:00: Ot 00:00:00.02 
Pass 2 47 a 00:00:01.49 
Symbol table output : 0:00:00.0 32 + 89 308-08 
Psect synopsis output 88 :85:00°5 0:00:00.16 
Cross-reference output 0 00:00:00.0 00:00:00.00 
Assembler run totals 319 00:00:02.1 00:00:09.95 


The working set Limit was 900 pages. ; 

4109 bytes (9 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 41 non-local and 0 local symbols. 
193 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 


+ 
H Macro Library statistics : 
Macro Library name Macros defined 
-$255$DUA28: CSYSLIBIJSTARLET.MLB;2 4 
98 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LISS:MTHHINT/OBJ=OBJ$:MTHHINT MSRCS:MTHHINT/UPDATE=(ENHS$:MTHHINT > 


EQUIPMENT CORPORATION 


AH-BT13A-SE L 
ENTIAL AND PROPRIETARY 


VAX/VMS V4.0 


026 


